home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / UTILITY1 / MSWLGO35.ZIP / EXAMPLES / SOUNDS.MCI < prev    next >
Text File  |  1993-08-10  |  683b  |  31 lines
  1. ;
  2. ; Function:
  3. ;
  4. ; This routine will play a couple Windows supplied WAVE files.
  5. ;
  6. ; To run:
  7. ;
  8. ; load "sounds.mci
  9. ; Call SOUNDS
  10. ;
  11. ; System requirements:
  12. ;
  13. ; You must have Windows 3.1 (or 3.0 with Multi-Media Extentions)
  14. ; You must have the correct driver loaded in Windows for your sound card.
  15. ; You must have a sound card.
  16. ;
  17. to sounds
  18. print mci [open c:/windows/tada.wav type waveaudio alias wa]
  19. print mci [open c:/windows/ding.wav type waveaudio alias w2] 
  20. mci [seek wa to start] 
  21. mci [play wa wait] 
  22. repeat 2~
  23.   [~
  24.   mci [seek w2 to start]~
  25.   mci [play w2 wait]~
  26.   ]
  27. mci [close w2] 
  28. mci [seek wa to start] 
  29. (mci [play wa notify] [mci [close wa]]) 
  30. end
  31.